home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1997 January / pcgo 1997-01.iso / demo / univengl / msvalid.inc < prev    next >
Encoding:
Text File  |  1995-08-15  |  951 b   |  32 lines
  1. CONST DriveOk = 0
  2. DECLARE FUNCTION IsDriveOk (szDrive$) AS INTEGER
  3. '*************************************************************************
  4. FUNCTION IsDriveOk (szDrive$) STATIC  AS INTEGER
  5. '$ifdef DEBUG
  6.     if FValidDrive(szDrive$) = 0 then
  7.         BadArgErr 1, "IsDriveOk", szDrive$
  8.     end if
  9. '$endif ''DEBUG
  10.     IsDriveOk = FIsRemoteDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  11. END FUNCTION
  12.  
  13. DECLARE FUNCTION CutCmd (szPath$) AS STRING
  14. '*************************************************************************
  15. FUNCTION CutCmd (szPath$) STATIC AS STRING
  16.         CutCmd = MID$(szPath$,6)
  17. END FUNCTION
  18.  
  19. DECLARE FUNCTION IsCmd (szPath$) AS INTEGER
  20. '*************************************************************************
  21. FUNCTION IsCmd (szPath$) STATIC AS Integer
  22.     if MID$(szPath$,1,1) = "$" AND MID$(szPath$,5,1) = "=" THEN
  23.         if MID$(szPath$,2,3) = "NET" then
  24.             IsCmd=1
  25.         else
  26.             IsCmd=0
  27.         end if
  28.     else
  29.         IsCmd = 0
  30.     end if
  31. END FUNCTION
  32.